From 25154eb3de5c59a6862cbeb30089835733848d22 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 7 Dec 2000 13:52:47 +0000 Subject: [PATCH] (server-visit-files): Push files on file-name-history. --- lisp/server.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/server.el b/lisp/server.el index 35738eeb407..e362c8e5607 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1,6 +1,7 @@ ;;; server.el --- Lisp code for GNU Emacs running as server process. -;; Copyright (C) 1986, 87, 92, 94, 95, 96, 1997 Free Software Foundation, Inc. +;; Copyright (C) 1986, 87, 92, 94, 95, 96, 97, 98, 99, 2000 +;; Free Software Foundation, Inc. ;; Author: William Sommerfeld ;; Maintainer: FSF @@ -307,6 +308,7 @@ so don't mark these buffers specially, just visit them normally." ;; deleted file, offer to write it. (let* ((filen (car (car files))) (obuf (get-file-buffer filen))) + (push filen file-name-history) (if (and obuf (set-buffer obuf)) (cond ((file-exists-p filen) (if (or (not (verify-visited-file-modtime obuf)) -- 2.30.2